home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / a_14_Handy2056213262007.psc / Handy Modules / modMouse.bas < prev    next >
BASIC Source File  |  2007-03-22  |  2KB  |  61 lines
  1. Attribute VB_Name = "modMouse"
  2. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  3. Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
  4. Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long
  5. Private Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long
  6. Private Declare Function GetDoubleClickTime Lib "user32" () As Long
  7. Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
  8.  
  9. Private Type RECT
  10.     left As Long
  11.     top As Long
  12.     right As Long
  13.     bottom As Long
  14. End Type
  15.  
  16. Private Type POINTAPI
  17.     X As Long
  18.     Y As Long
  19. End Type
  20.  
  21. Public Property Get MouseX() As Long
  22.     Dim t As POINTAPI
  23.     GetCursorPos t
  24.     MouseX = t.X
  25. End Property
  26.  
  27. Public Property Get MouseY() As Long
  28.     Dim t As POINTAPI
  29.     GetCursorPos t
  30.     MouseY = t.Y
  31. End Property
  32.  
  33. Public Property Let MouseX(newval As Long)
  34.     SetCursorPos newval, MouseY
  35. End Property
  36.  
  37. Public Property Let MouseY(newval As Long)
  38.     SetCursorPos MouseX, newval
  39. End Property
  40.  
  41. Public Property Get MouseDoubleClickTime() As Long
  42.     MouseDoubleClickTime = GetDoubleClickTime
  43. End Property
  44.  
  45. Public Property Let MouseDoubleClickTime(newval As Long)
  46.     SetDoubleClickTime newval
  47. End Property
  48.  
  49. Public Sub MouseClip(mX, mY, mWidth, mHeight)
  50.     Dim rct As RECT
  51.     rct.left = mX
  52.     rct.top = mY
  53.     rct.right = mWidth + mX
  54.     rct.bottom = mHeight + mY
  55.     ClipCursor rct
  56. End Sub
  57. Public Sub MouseSwapButtons(swap As Boolean)
  58.     SwapMouseButton CLng(swap)
  59. End Sub
  60.  
  61.